(make-help-screen): Bind `inhibit-read-only' to t

around `erase-buffer' and `insert'.

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 33ee42abe7e33dc370e98a0f52a3326c4cdf2803..3170bf287b58542b4884da00e2ae77f78919fe35 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -139,8 +139,9 @@ and then returns."
                                (setq new-frame (window-frame (selected-window))
                                      config nil))
                           (setq buffer-read-only nil)
-                          (erase-buffer)
-                          (insert help-screen)
+                          (let ((inhibit-read-only t))
+                            (erase-buffer)
+                            (insert help-screen))
                           (help-mode)
                           (goto-char (point-min))
                           (while (or (memq char (append help-event-list